home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Extended Calculator 2.01 / Calculator programs / Simple draw prog < prev    next >
Encoding:
Text File  |  1994-05-03  |  462 b   |  27 lines  |  [TEXT/EcA1]
  1. TFont(20);
  2. TSize(9);
  3. FRect(5,5,15,15);
  4. FOval(5,20,15,30);
  5. text("QUIT",5,35,40,60,1);
  6. m:=0;
  7. while (m≠3);
  8.     while(not(button));
  9.     end;
  10.     m:=int((VMouse+10)/15);
  11.     x:=random(100,500);
  12.     y:=random(100,200);
  13.     s:=random(1,100);
  14.     if (m=1);
  15.         IRect(0,0,20,20);
  16.         FRect(x,y,x+s,y+s);
  17.         IRect(0,0,20,20);
  18.     end;
  19.     if (m=2);
  20.         IRect(0,15,20,35);
  21.         FOval(x,y,x+s,y+s);
  22.         IRect(0,15,20,35);
  23.     end;
  24. end;
  25.     
  26.         
  27.